home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / README.WMS < prev    next >
Encoding:
Text File  |  1991-03-22  |  845 b   |  32 lines
  1. ;Read Me macro opens the README.TXT file in an sedit box
  2.  
  3. STOP
  4. CLEAR
  5. var1$ = "welcome.txt"
  6.    DIALOGBOX 44, 20, 250, 178, 21, "WinComm Read Me"
  7.       LTEXT 86, 8, 20, 9, "File:"
  8.       VTEXT 107, 8, 50, 9, VAR1$
  9.       DEFPUSHBUTTON 196, 149, 50, 14, "&Exit"
  10.       UPDATEPB 9, 149, 50, 14, "&Welcome"
  11.       UPDATEPB 70, 149, 50, 14, "&Updates"
  12.       STEXT 9, 25, 236, 113, VAR1$
  13.       UPDATEPB 133, 149, 50, 14, "&Version 1.5"
  14.    DEND
  15. ENABLECTL(100,0)
  16. again:
  17.  
  18. DO i = DIALOG? UNTIL(i != 255)
  19. IF(i == 1) HALT
  20. IF(i == 100){
  21.     var1$ = "welcome.txt" ENABLECTL(100,0) ENABLECTL(101,1) ENABLECTL(102,1)
  22. }
  23. ELSE IF(i == 101){
  24.     var1$ = "updates.txt" ENABLECTL(100,1) ENABLECTL(101,0) ENABLECTL(102,1)
  25. }
  26. ELSE IF(i == 102){
  27.     var1$ = "update2.txt" ENABLECTL(100,1) ENABLECTL(101,1) ENABLECTL(102,0)
  28. }
  29. UPDATEDLG(18)
  30. GOTO again
  31. END
  32.